Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/fa%3A%2F%2F3 1,691,588,974 288,972,702 289,001,846 3,383,177,947 2,744,311,884 2,744,479,152 1,691,588,973.59 136270
lp://DOT/LCDOT 343,166,825 70,000,070 71,373,599 339,004,174 69,143,680 70,714,033 4,162,651.56 335.3
lp://AUSD/LDOT 3,760,996 4,352,160 4,655,725 7,520,862 8,401,953 9,089,882 3,759,865.93 302.9
lp://AUSD/fa%3A%2F%2F4 1,241,351 1,922,648 2,070,623 2,482,703 3,001,308 3,460,964 1,241,351.31 100
lp://AUSD/LCDOT 17,705,699 46,382,449 47,505,459 17,696,869 46,227,191 47,453,632 8,830.47 0.7
lp://ACA/AUSD 18,159,891 20,518,854 21,736,224 18,162,886 20,712,205 22,230,860 2,995.18 0.2

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,706,080.17 -1,645.45 -5,358.60 NA NA NA NA NA
lp://KINT/KUSD -1,306,154.95 -1,618.01 -4,405.25 NA NA NA NA NA
lp://PHA/KUSD -1,071,084.69 -242.31 -1,380.92 NA NA NA NA NA
lp://KUSD/KINT 1,295,308.90 -1,685.00 -4,488.44 9,500.50 2,687.03 7,628.68 1,285,808.40 NA
lp://KUSD/KBTC 1,648,486.87 -1,570.81 -6,121.02 433,685.21 127,193.41 248,668.67 1,214,801.66 NA
lp://KUSD/PHA 1,067,049.64 -206.34 -1,366.21 14,694.06 2,175.84 12,191.14 1,052,355.59 NA
lp://TAI/taiKSM 0.00 0.00 0.00 9,200.66 954.03 14,028.59 9,200.66 NA
lp://KAR/LKSM 570,270.49 0.00 94,379.64 571,772.48 4,754.56 193,228.27 1,501.99 NA
lp://KAR/KSM 997,957.94 9.13 364,243.23 999,383.07 9.15 370,838.99 1,425.14 NA
lp://KUSD/KSM 551,960.99 69.91 793,608.46 552,608.86 69.97 804,335.30 647.87 NA
lp://KAR/KUSD 562,867.06 49.27 330,627.55 563,505.59 49.31 577,990.39 638.53 NA
lp://KUSD/LKSM 444,103.35 185,291.12 365,958.95 444,532.57 241,611.91 474,681.73 429.23 NA
lp://KSM/LKSM 102,196.59 76.65 38,522.38 102,481.72 76.98 42,161.07 285.13 NA
lp://KUSD/RMRK 12,496.76 118.96 20,819.94 12,376.49 118.95 20,820.98 120.27 NA
lp://KUSD/ARIS2 165,022.72 3.52 30,527.51 165,139.93 3.52 63,252.59 117.21 NA
lp://KUSD/CSM 30,770.39 1,986.38 7,157.35 30,681.04 3,517.20 8,702.72 89.34 NA
lp://KUSD/QTZ 6,658.87 0.86 9,661.17 6,741.07 0.87 19,261.91 82.20 NA
lp://KAR/QTZ 6,363.44 20.44 7,195.93 6,445.44 20.70 12,527.29 82.00 NA
lp://KSM/ARIS 39.20 0.00 68.34 78.54 4.77 216.44 39.34 NA
lp://KSM/RMRK 5,039.09 10.09 6,834.24 5,043.50 10.10 8,906.05 4.41 NA
lp://KUSD/BNC 57,057.74 13,173.29 17,530.74 57,061.04 13,173.29 17,632.30 3.30 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```